home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Frank Lloyd Wright Companion
/
The Frank Lloyd Wright Companion.iso
/
fullmacapps
/
macfllwc_small.sit
/
MacFLLWC_Small
/
flw.mvb.rsrc
/
CODE_30_QH ArrowMove.txt
< prev
next >
Wrap
Text File
|
1995-09-30
|
23KB
|
440 lines
# near model CODE resource
# jump table entries: 65472-65472 (1 of them)
00000000 FFFF .extension 0xFFF // unimplemented
00000002 FFC0 .extension 0xFC0 // unimplemented
00000004 0000 03D8 ori.b D0, 0xD8
00000008 48E7 1C3A movem.l -[A7], D3,D4,D5,A2,A3,A4,A6
0000000C 594F subq.w A7, 4
0000000E 2C6F 0028 movea.l A6, [A7 + 0x28]
00000012 282F 002E move.l D4, [A7 + 0x2E]
00000016 262F 0032 move.l D3, [A7 + 0x32]
0000001A 2A2F 0036 move.l D5, [A7 + 0x36]
0000001E 266F 0024 movea.l A3, [A7 + 0x24]
00000022 D7C5 add.l A3, D5
00000024 200E move.l D0, A6
00000026 6604 bne +0x6 /* 0000002C */
00000028 91C8 sub.l A0, A0
0000002A 6004 bra +0x6 /* 00000030 */
label0000002C:
0000002C 204E movea.l A0, A6
0000002E D1C5 add.l A0, D5
label00000030:
00000030 2448 movea.l A2, A0
00000032 102F 002C move.b D0, [A7 + 0x2C]
00000036 4880 ext.w D0
00000038 48C0 ext.l D0
0000003A 0480 0000 001C subi.l D0, 0x1C
00000040 6700 0084 beq +0x86 /* 000000C6 */
00000044 5380 subq.l D0, 1
00000046 6760 beq +0x62 /* 000000A8 */
00000048 5380 subq.l D0, 1
0000004A 6732 beq +0x34 /* 0000007E */
0000004C 5380 subq.l D0, 1
0000004E 6704 beq +0x6 /* 00000054 */
00000050 6000 0090 bra +0x92 /* 000000E2 */
label00000054:
00000054 200A move.l D0, A2
00000056 6612 bne +0x14 /* 0000006A */
00000058 2E80 move.l [A7], D0
0000005A 2F03 move.l -[A7], D3
0000005C 2F04 move.l -[A7], D4
0000005E 2F0B move.l -[A7], A3
00000060 4EBA 00F0 jsr [PC + 0xF0 /* 00000152 */]
00000064 4FEF 000C lea.l A7, [A7 + 0xC]
00000068 6010 bra +0x12 /* 0000007A */
label0000006A:
0000006A 2F03 move.l -[A7], D3
0000006C 2F04 move.l -[A7], D4
0000006E 2F0A move.l -[A7], A2
00000070 2F0B move.l -[A7], A3
00000072 4EBA 023A jsr [PC + 0x23A /* 000002AE */]
00000076 4FEF 0010 lea.l A7, [A7 + 0x10]
label0000007A:
0000007A 2848 movea.l A4, A0
0000007C 6064 bra +0x66 /* 000000E2 */
label0000007E:
0000007E 200A move.l D0, A2
00000080 6612 bne +0x14 /* 00000094 */
00000082 2E80 move.l [A7], D0
00000084 2F03 move.l -[A7], D3
00000086 2F04 move.l -[A7], D4
00000088 2F0B move.l -[A7], A3
0000008A 4EBA 0122 jsr [PC + 0x122 /* 000001AE */]
0000008E 4FEF 000C lea.l A7, [A7 + 0xC]
00000092 6010 bra +0x12 /* 000000A4 */
label00000094:
00000094 2F03 move.l -[A7], D3
00000096 2F04 move.l -[A7], D4
00000098 2F0A move.l -[A7], A2
0000009A 2F0B move.l -[A7], A3
0000009C 4EBA 022C jsr [PC + 0x22C /* 000002CA */]
000000A0 4FEF 0010 lea.l A7, [A7 + 0x10]
label000000A4:
000000A4 2848 movea.l A4, A0
000000A6 603A bra +0x3C /* 000000E2 */
label000000A8:
000000A8 200A move.l D0, A2
000000AA 6604 bne +0x6 /* 000000B0 */
000000AC 91C8 sub.l A0, A0
000000AE 6012 bra +0x14 /* 000000C2 */
label000000B0:
000000B0 2E80 move.l [A7], D0
000000B2 2F03 move.l -[A7], D3
000000B4 2F04 move.l -[A7], D4
000000B6 2F0A move.l -[A7], A2
000000B8 2F0B move.l -[A7], A3
000000BA 4EBA 02DE jsr [PC + 0x2DE /* 0000039A */]
000000BE 4FEF 0010 lea.l A7, [A7 + 0x10]
label000000C2:
000000C2 2848 movea.l A4, A0
000000C4 601C bra +0x1E /* 000000E2 */
label000000C6:
000000C6 200A move.l D0, A2
000000C8 6604 bne +0x6 /* 000000CE */
000000CA 91C8 sub.l A0, A0
000000CC 6012 bra +0x14 /* 000000E0 */
label000000CE:
000000CE 2E80 move.l [A7], D0
000000D0 2F03 move.l -[A7], D3
000000D2 2F04 move.l -[A7], D4
000000D4 2F0A move.l -[A7], A2
000000D6 2F0B move.l -[A7], A3
000000D8 4EBA 02DC jsr [PC + 0x2DC /* 000003B6 */]
000000DC 4FEF 0010 lea.l A7, [A7 + 0x10]
label000000E0:
000000E0 2848 movea.l A4, A0
label000000E2:
000000E2 200C move.l D0, A4
000000E4 6604 bne +0x6 /* 000000EA */
000000E6 91C8 sub.l A0, A0
000000E8 6004 bra +0x6 /* 000000EE */
label000000EA:
000000EA 204C movea.l A0, A4
000000EC 91C5 sub.l A0, D5
label000000EE:
000000EE 584F addq.w A7, 4
000000F0 4CDF 5C38 movem.l D3,D4,D5,A2,A3,A4,A6, [A7]+
000000F4 4E75 rts
fn000000F6:
000000F6 226F 0004 movea.l A1, [A7 + 0x4]
000000FA 206F 0008 movea.l A0, [A7 + 0x8]
000000FE 3011 move.w D0, [A1]
00000100 B050 cmp.w D0, [A0]
00000102 6D0C blt +0xE /* 00000110 */
00000104 3011 move.w D0, [A1]
00000106 B068 0004 cmp.w D0, [A0 + 0x4]
0000010A 6E04 bgt +0x6 /* 00000110 */
0000010C 7001 moveq.l D0, 0x01
0000010E 4E75 rts
label00000110:
00000110 3029 0004 move.w D0, [A1 + 0x4]
00000114 B050 cmp.w D0, [A0]
00000116 6D0E blt +0x10 /* 00000126 */
00000118 3029 0004 move.w D0, [A1 + 0x4]
0000011C B068 0004 cmp.w D0, [A0 + 0x4]
00000120 6E04 bgt +0x6 /* 00000126 */
00000122 7001 moveq.l D0, 0x01
00000124 4E75 rts
label00000126:
00000126 3010 move.w D0, [A0]
00000128 B051 cmp.w D0, [A1]
0000012A 6D0C blt +0xE /* 00000138 */
0000012C 3010 move.w D0, [A0]
0000012E B069 0004 cmp.w D0, [A1 + 0x4]
00000132 6E04 bgt +0x6 /* 00000138 */
00000134 7001 moveq.l D0, 0x01
00000136 4E75 rts
label00000138:
00000138 3028 0004 move.w D0, [A0 + 0x4]
0000013C B051 cmp.w D0, [A1]
0000013E 6D0E blt +0x10 /* 0000014E */
00000140 3028 0004 move.w D0, [A0 + 0x4]
00000144 B069 0004 cmp.w D0, [A1 + 0x4]
00000148 6E04 bgt +0x6 /* 0000014E */
0000014A 7001 moveq.l D0, 0x01
0000014C 4E75 rts
label0000014E:
0000014E 7000 moveq.l D0, 0x00
00000150 4E75 rts
fn00000152:
00000152 48E7 1C30 movem.l -[A7], D3,D4,D5,A2,A3
00000156 246F 0018 movea.l A2, [A7 + 0x18]
0000015A 2A2F 001C move.l D5, [A7 + 0x1C]
0000015E 282F 0020 move.l D4, [A7 + 0x20]
00000162 97CB sub.l A3, A3
00000164 7600 moveq.l D3, 0x00
00000166 603A bra +0x3C /* 000001A2 */
label00000168:
00000168 554F subq.w A7, 2
0000016A 2F0A move.l -[A7], A2
0000016C A8AE syscall EmptyRect
0000016E 101F move.b D0, [A7]+
00000170 662C bne +0x2E /* 0000019E */
00000172 200B move.l D0, A3
00000174 6726 beq +0x28 /* 0000019C */
00000176 2F0B move.l -[A7], A3
00000178 2F0A move.l -[A7], A2
0000017A 4EBA FF7A jsr [PC - 0x86 /* 000000F6 */]
0000017E 4A80 tst.l D0
00000180 504F addq.w A7, 8
00000182 670E beq +0x10 /* 00000192 */
00000184 302A 0002 move.w D0, [A2 + 0x2]
00000188 B06B 0002 cmp.w D0, [A3 + 0x2]
0000018C 6C10 bge +0x12 /* 0000019E */
0000018E 264A movea.l A3, A2
00000190 600C bra +0xE /* 0000019E */
label00000192:
00000192 3012 move.w D0, [A2]
00000194 B053 cmp.w D0, [A3]
00000196 6C06 bge +0x8 /* 0000019E */
00000198 264A movea.l A3, A2
0000019A 6002 bra +0x4 /* 0000019E */
label0000019C:
0000019C 264A movea.l A3, A2
label0000019E:
0000019E 5283 addq.l D3, 1
000001A0 D5C4 add.l A2, D4
label000001A2:
000001A2 B685 cmp.l D3, D5
000001A4 65C2 bcs -0x3C /* 00000168 */
000001A6 204B movea.l A0, A3
000001A8 4CDF 0C38 movem.l D3,D4,D5,A2,A3, [A7]+
000001AC 4E75 rts
fn000001AE:
000001AE 48E7 1C30 movem.l -[A7], D3,D4,D5,A2,A3
000001B2 246F 0018 movea.l A2, [A7 + 0x18]
000001B6 2A2F 001C move.l D5, [A7 + 0x1C]
000001BA 282F 0020 move.l D4, [A7 + 0x20]
000001BE 97CB sub.l A3, A3
000001C0 7600 moveq.l D3, 0x00
000001C2 603E bra +0x40 /* 00000202 */
label000001C4:
000001C4 554F subq.w A7, 2
000001C6 2F0A move.l -[A7], A2
000001C8 A8AE syscall EmptyRect
000001CA 101F move.b D0, [A7]+
000001CC 6630 bne +0x32 /* 000001FE */
000001CE 200B move.l D0, A3
000001D0 672A beq +0x2C /* 000001FC */
000001D2 2F0B move.l -[A7], A3
000001D4 2F0A move.l -[A7], A2
000001D6 4EBA FF1E jsr [PC - 0xE2 /* 000000F6 */]
000001DA 4A80 tst.l D0
000001DC 504F addq.w A7, 8
000001DE 670E beq +0x10 /* 000001EE */
000001E0 302A 0006 move.w D0, [A2 + 0x6]
000001E4 B06B 0006 cmp.w D0, [A3 + 0x6]
000001E8 6F14 ble +0x16 /* 000001FE */
000001EA 264A movea.l A3, A2
000001EC 6010 bra +0x12 /* 000001FE */
label000001EE:
000001EE 302A 0004 move.w D0, [A2 + 0x4]
000001F2 B06B 0004 cmp.w D0, [A3 + 0x4]
000001F6 6F06 ble +0x8 /* 000001FE */
000001F8 264A movea.l A3, A2
000001FA 6002 bra +0x4 /* 000001FE */
label000001FC:
000001FC 264A movea.l A3, A2
label000001FE:
000001FE 5283 addq.l D3, 1
00000200 D5C4 add.l A2, D4
label00000202:
00000202 B685 cmp.l D3, D5
00000204 65BE bcs -0x40 /* 000001C4 */
00000206 204B movea.l A0, A3
00000208 4CDF 0C38 movem.l D3,D4,D5,A2,A3, [A7]+
0000020C 4E75 rts
fn0000020E:
0000020E 48E7 1F3A movem.l -[A7], D3,D4,D5,D6,D7,A2,A3,A4,A6
00000212 246F 0028 movea.l A2, [A7 + 0x28]
00000216 266F 002C movea.l A3, [A7 + 0x2C]
0000021A 2C6F 0034 movea.l A6, [A7 + 0x34]
0000021E 2E2F 0038 move.l D7, [A7 + 0x38]
00000222 99CC sub.l A4, A4
00000224 7A00 moveq.l D5, 0x00
00000226 6078 bra +0x7A /* 000002A0 */
label00000228:
00000228 554F subq.w A7, 2
0000022A 2F0A move.l -[A7], A2
0000022C A8AE syscall EmptyRect
0000022E 101F move.b D0, [A7]+
00000230 666A bne +0x6C /* 0000029C */
00000232 554F subq.w A7, 2
00000234 2F0A move.l -[A7], A2
00000236 2F0B move.l -[A7], A3
00000238 A8A6 syscall EqualRect
0000023A 101F move.b D0, [A7]+
0000023C 665E bne +0x60 /* 0000029C */
0000023E 4A87 tst.l D7
00000240 670C beq +0xE /* 0000024E */
00000242 3012 move.w D0, [A2]
00000244 48C0 ext.l D0
00000246 3613 move.w D3, [A3]
00000248 48C3 ext.l D3
0000024A 9680 sub.l D3, D0
0000024C 600A bra +0xC /* 00000258 */
label0000024E:
0000024E 3013 move.w D0, [A3]
00000250 48C0 ext.l D0
00000252 3612 move.w D3, [A2]
00000254 48C3 ext.l D3
00000256 9680 sub.l D3, D0
label00000258:
00000258 4A83 tst.l D3
0000025A 6F40 ble +0x42 /* 0000029C */
0000025C 200C move.l D0, A4
0000025E 6738 beq +0x3A /* 00000298 */
00000260 B684 cmp.l D3, D4
00000262 6E38 bgt +0x3A /* 0000029C */
00000264 B684 cmp.l D3, D4
00000266 6630 bne +0x32 /* 00000298 */
00000268 302B 0002 move.w D0, [A3 + 0x2]
0000026C 48C0 ext.l D0
0000026E 322A 0002 move.w D1, [A2 + 0x2]
00000272 48C1 ext.l D1
00000274 9280 sub.l D1, D0
00000276 2F01 move.l -[A7], D1
00000278 4EAD D92E jsr [A5 - 0x26D2]
0000027C 2C00 move.l D6, D0
0000027E 302B 0002 move.w D0, [A3 + 0x2]
00000282 48C0 ext.l D0
00000284 322C 0002 move.w D1, [A4 + 0x2]
00000288 48C1 ext.l D1
0000028A 9280 sub.l D1, D0
0000028C 2F01 move.l -[A7], D1
0000028E 4EAD D92E jsr [A5 - 0x26D2]
00000292 BC80 cmp.l D6, D0
00000294 504F addq.w A7, 8
00000296 6E04 bgt +0x6 /* 0000029C */
label00000298:
00000298 284A movea.l A4, A2
0000029A 2803 move.l D4, D3
label0000029C:
0000029C 5285 addq.l D5, 1
0000029E D5CE add.l A2, A6
label000002A0:
000002A0 BAAF 0030 cmp.l D5, [A7 + 0x30]
000002A4 6582 bcs -0x7C /* 00000228 */
000002A6 204C movea.l A0, A4
000002A8 4CDF 5CF8 movem.l D3,D4,D5,D6,D7,A2,A3,A4,A6, [A7]+
000002AC 4E75 rts
fn000002AE:
000002AE 42A7 clr.l -[A7]
000002B0 2F2F 0014 move.l -[A7], [A7 + 0x14]
000002B4 2F2F 0014 move.l -[A7], [A7 + 0x14]
000002B8 2F2F 0014 move.l -[A7], [A7 + 0x14]
000002BC 2F2F 0014 move.l -[A7], [A7 + 0x14]
000002C0 4EBA FF4C jsr [PC - 0xB4 /* 0000020E */]
000002C4 4FEF 0014 lea.l A7, [A7 + 0x14]
000002C8 4E75 rts
fn000002CA:
000002CA 4878 0001 push.l 0x1
000002CE 2F2F 0014 move.l -[A7], [A7 + 0x14]
000002D2 2F2F 0014 move.l -[A7], [A7 + 0x14]
000002D6 2F2F 0014 move.l -[A7], [A7 + 0x14]
000002DA 2F2F 0014 move.l -[A7], [A7 + 0x14]
000002DE 4EBA FF2E jsr [PC - 0xD2 /* 0000020E */]
000002E2 4FEF 0014 lea.l A7, [A7 + 0x14]
000002E6 4E75 rts
fn000002E8:
000002E8 48E7 1F3A movem.l -[A7], D3,D4,D5,D6,D7,A2,A3,A4,A6
000002EC 246F 0028 movea.l A2, [A7 + 0x28]
000002F0 266F 002C movea.l A3, [A7 + 0x2C]
000002F4 2C6F 0034 movea.l A6, [A7 + 0x34]
000002F8 2E2F 0038 move.l D7, [A7 + 0x38]
000002FC 99CC sub.l A4, A4
000002FE 7A00 moveq.l D5, 0x00
00000300 6000 0088 bra +0x8A /* 0000038A */
label00000304:
00000304 554F subq.w A7, 2
00000306 2F0A move.l -[A7], A2
00000308 A8AE syscall EmptyRect
0000030A 101F move.b D0, [A7]+
0000030C 6678 bne +0x7A /* 00000386 */
0000030E 554F subq.w A7, 2
00000310 2F0A move.l -[A7], A2
00000312 2F0B move.l -[A7], A3
00000314 A8A6 syscall EqualRect
00000316 101F move.b D0, [A7]+
00000318 666C bne +0x6E /* 00000386 */
0000031A 2F0B move.l -[A7], A3
0000031C 2F0A move.l -[A7], A2
0000031E 4EBA FDD6 jsr [PC - 0x22A /* 000000F6 */]
00000322 4A80 tst.l D0
00000324 504F addq.w A7, 8
00000326 675E beq +0x60 /* 00000386 */
00000328 4A87 tst.l D7
0000032A 6710 beq +0x12 /* 0000033C */
0000032C 302A 0002 move.w D0, [A2 + 0x2]
00000330 48C0 ext.l D0
00000332 362B 0002 move.w D3, [A3 + 0x2]
00000336 48C3 ext.l D3
00000338 9680 sub.l D3, D0
0000033A 600E bra +0x10 /* 0000034A */
label0000033C:
0000033C 302B 0002 move.w D0, [A3 + 0x2]
00000340 48C0 ext.l D0
00000342 362A 0002 move.w D3, [A2 + 0x2]
00000346 48C3 ext.l D3
00000348 9680 sub.l D3, D0
label0000034A:
0000034A 4A83 tst.l D3
0000034C 6F38 ble +0x3A /* 00000386 */
0000034E 200C move.l D0, A4
00000350 6730 beq +0x32 /* 00000382 */
00000352 B684 cmp.l D3, D4
00000354 6E30 bgt +0x32 /* 00000386 */
00000356 B684 cmp.l D3, D4
00000358 6628 bne +0x2A /* 00000382 */
0000035A 3013 move.w D0, [A3]
0000035C 48C0 ext.l D0
0000035E 3212 move.w D1, [A2]
00000360 48C1 ext.l D1
00000362 9280 sub.l D1, D0
00000364 2F01 move.l -[A7], D1
00000366 4EAD D92E jsr [A5 - 0x26D2]
0000036A 2C00 move.l D6, D0
0000036C 3013 move.w D0, [A3]
0000036E 48C0 ext.l D0
00000370 3214 move.w D1, [A4]
00000372 48C1 ext.l D1
00000374 9280 sub.l D1, D0
00000376 2F01 move.l -[A7], D1
00000378 4EAD D92E jsr [A5 - 0x26D2]
0000037C BC80 cmp.l D6, D0
0000037E 504F addq.w A7, 8
00000380 6E04 bgt +0x6 /* 00000386 */
label00000382:
00000382 284A movea.l A4, A2
00000384 2803 move.l D4, D3
label00000386:
00000386 5285 addq.l D5, 1
00000388 D5CE add.l A2, A6
label0000038A:
0000038A BAAF 0030 cmp.l D5, [A7 + 0x30]
0000038E 6500 FF74 bcs -0x8A /* 00000304 */
00000392 204C movea.l A0, A4
00000394 4CDF 5CF8 movem.l D3,D4,D5,D6,D7,A2,A3,A4,A6, [A7]+
00000398 4E75 rts
fn0000039A:
0000039A 42A7 clr.l -[A7]
0000039C 2F2F 0014 move.l -[A7], [A7 + 0x14]
000003A0 2F2F 0014 move.l -[A7], [A7 + 0x14]
000003A4 2F2F 0014 move.l -[A7], [A7 + 0x14]
000003A8 2F2F 0014 move.l -[A7], [A7 + 0x14]
000003AC 4EBA FF3A jsr [PC - 0xC6 /* 000002E8 */]
000003B0 4FEF 0014 lea.l A7, [A7 + 0x14]
000003B4 4E75 rts
fn000003B6:
000003B6 4878 0001 push.l 0x1
000003BA 2F2F 0014 move.l -[A7], [A7 + 0x14]
000003BE 2F2F 0014 move.l -[A7], [A7 + 0x14]
000003C2 2F2F 0014 move.l -[A7], [A7 + 0x14]
000003C6 2F2F 0014 move.l -[A7], [A7 + 0x14]
000003CA 4EBA FF1C jsr [PC - 0xE4 /* 000002E8 */]
000003CE 4FEF 0014 lea.l A7, [A7 + 0x14]
000003D2 4E75 rts
000003D4 0000 0000 ori.b D0, 0x0
000003D8 0000 0000 ori.b D0, 0x0
000003DC 0000 0000 ori.b D0, 0x0